(list-fontsets): Sort fontsets by plain names.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index bd450a4ff0b2c585fe7e361adb6e4e02f75b9b83..202c99bcbbe323e2155da0f851e4102e12cf4c94 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -676,7 +676,11 @@ see the function `describe-fontset' for the format of the list."
        (set-buffer standard-output)
        (insert "Fontset-Name\t\t\t\t\t\t  WDxHT Style\n")
        (insert "------------\t\t\t\t\t\t  ----- -----\n")
-       (let ((fontsets (fontset-list)))
+       (let ((fontsets
+              (sort (fontset-list)
+                    (function (lambda (x y)
+                                (string< (fontset-plain-name x)
+                                         (fontset-plain-name y)))))))
          (while fontsets
            (print-fontset (car fontsets) arg)
            (setq fontsets (cdr fontsets))))))))